home *** CD-ROM | disk | FTP | other *** search
/ How Many Bugs in a Box / How Many Bugs in a Box.cdr / bugs / act5 / 00472.ls < prev    next >
Encoding:
Text File  |  1995-03-28  |  946 b   |  39 lines
  1. on rewardspin
  2.   global fpos
  3.   preLoadCast("w1", "w2")
  4.   set notdone to 1
  5.   repeat while notdone = 1
  6.     repeat with xxx = 1 to 2
  7.       set the castNum of sprite 4 to the number of cast ("w" & xxx)
  8.       repeat with yyy = 1 to 8
  9.         ssetpos(yyy + 6, getAt(getAt(fpos, xxx), yyy))
  10.       end repeat
  11.       updateStage()
  12.       mydelay(30)
  13.     end repeat
  14.     set temp to sinfo(14)
  15.     repeat with xxx = 14 down to 8
  16.       sactivate(xxx, sinfo(xxx - 1))
  17.     end repeat
  18.     sactivate(7, temp)
  19.     set the castNum of sprite 4 to the number of cast "w1"
  20.     repeat with yyy = 1 to 8
  21.       ssetpos(yyy + 6, getAt(getAt(fpos, 1), yyy))
  22.     end repeat
  23.     updateStage()
  24.     if the visible of sprite 11 = 1 then
  25.       set notdone to 0
  26.     end if
  27.   end repeat
  28. end
  29.  
  30. on ptortime
  31.   set mp to point(100, 100)
  32.   set mr to rect(100, 100, 200, 200)
  33.   startTimer()
  34.   repeat with xxx = 1 to 1000
  35.     set ringmuscle to inside(mp, mr)
  36.   end repeat
  37.   put the timer
  38. end
  39.